home *** CD-ROM | disk | FTP | other *** search
/ Ah My Goddess / Ah My Goddess.iso / pc / stage / start.dxr / 00013.ls < prev    next >
Encoding:
Text File  |  1997-09-08  |  1.3 KB  |  51 lines
  1. on lfxkeycontrol
  2.   dontPassEvent()
  3.   set the keyDownScript to "checkKey"
  4. end
  5.  
  6. on lfxkeycontroloff
  7.   dontPassEvent()
  8.   set the keyDownScript to EMPTY
  9. end
  10.  
  11. on checkkey
  12.   global gvmacorwin, gvhelpmode, glkeyset, gvtempo, gvpictnum, glpictlist, gvmovpouse, gvmovpoint, gvmovhelppoint, gvmovwait, gvlmovie, gvsoundfade, gvsoundlevel, gvslevellist
  13.   dontPassEvent()
  14.   case getPos(glkeyset, the keyCode) of
  15.     1:
  16.       nothing()
  17.     2:
  18.       nothing()
  19.     3:
  20.       nothing()
  21.     4:
  22.       nothing()
  23.     5:
  24.       nothing()
  25.     6:
  26.       nothing()
  27.     7:
  28.       nothing()
  29.     8:
  30.       nothing()
  31.       if gvsoundlevel < count(gvslevellist) then
  32.         set gvsoundlevel to gvsoundlevel + 1
  33.       else
  34.         set gvsoundlevel to count(gvslevellist)
  35.       end if
  36.       set the volume of sound 1 to getAt(gvslevellist, gvsoundlevel)
  37.       set the volume of sound 2 to getAt(gvslevellist, gvsoundlevel)
  38.       set the volume of sprite 2 to getAt(gvslevellist, gvsoundlevel)
  39.     9:
  40.       nothing()
  41.       if gvsoundlevel > 1 then
  42.         set gvsoundlevel to gvsoundlevel - 1
  43.       else
  44.         set gvsoundlevel to 1
  45.       end if
  46.       set the volume of sound 1 to getAt(gvslevellist, gvsoundlevel)
  47.       set the volume of sound 2 to getAt(gvslevellist, gvsoundlevel)
  48.       set the volume of sprite 2 to getAt(gvslevellist, gvsoundlevel)
  49.   end case
  50. end
  51.